let rec equal : t -> t -> Ppx_deriving_runtime.bool =
  let __0 () = equal in
  ((let open! ((Ppx_deriving_runtime)[@ocaml.warning "-A"]) in
      fun lhs ->
        fun rhs ->
          match (lhs, rhs) with
          | (L lhs0, L rhs0) ->
              ((fun (a : string) -> fun b -> a = b)) lhs0 rhs0
          | (Q lhs0, Q rhs0) ->
              ((fun (a : string) -> fun b -> a = b)) lhs0 rhs0
          | (P lhs0, P rhs0) -> ((fun (a : int) -> fun b -> a = b)) lhs0 rhs0
          | (S lhs0, S rhs0) ->
              (let rec loop x y =
                 match (x, y) with
                 | ([], []) -> true
                 | (a::x, b::y) -> ((fun x -> (__0 ()) x) a b) && (loop x y)
                 | _ -> false in
               (fun x -> fun y -> loop x y)) lhs0 rhs0
          | _ -> false)
    [@ocaml.warning "-A"])[@@ocaml.warning "-39"]